home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 June / MacFormat 25.iso / Shareware City / HyperCard / hyper-info-20-hc / HyperInfo Stacks / List (Collection) / background_2649.xml next >
Encoding:
Extensible Markup Language  |  1994-12-30  |  8.2 KB  |  149 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>2649</id>
  5.     <filler1>0</filler1>
  6.     <cantDelete> <true /> </cantDelete>
  7.     <showPict> <true /> </showPict>
  8.     <dontSearch> <false /> </dontSearch>
  9.     <link rel="stylesheet" type="text/css" href="stylesheet_3262.css" />
  10.     <part>
  11.         <id>1</id>
  12.         <type>button</type>
  13.         <visible> <true /> </visible>
  14.         <reserved5> 0 </reserved5>
  15.         <reserved4> 0 </reserved4>
  16.         <reserved3> 0 </reserved3>
  17.         <reserved2> 0 </reserved2>
  18.         <reserved1> 0 </reserved1>
  19.         <enabled> <true /> </enabled>
  20.         <rect>
  21.             <left>0</left>
  22.             <top>496</top>
  23.             <right>512</right>
  24.             <bottom>512</bottom>
  25.         </rect>
  26.         <style>popup</style>
  27.         <showName> <true /> </showName>
  28.         <highlight> <false /> </highlight>
  29.         <autoHighlight> <true /> </autoHighlight>
  30.         <sharedHighlight> <true /> </sharedHighlight>
  31.         <family>0</family>
  32.         <titleWidth>120</titleWidth>
  33.         <textAlign>left</textAlign>
  34.         <font>Courier</font>
  35.         <textSize>10</textSize>
  36.         <textStyle>bold</textStyle>
  37.         <name>* Action</name>
  38.         <script>on mouseUpglobal globalChunk,globalFld,globalTextlock messageslock screenset the cursor to busyput the selectedText of the target into theActionif      ("$*$" is in "$" & theAction & "$") thenanswer "This function is achieved by a key combination."else if (theAction is "Create New Directory") thengo bg "3"send ("doMenu " & quote & "New Card" & quote & "," & quote & "Edit" & quote) to HyperCardelse if (theAction is "Create New List") thengo bg "2"send ("doMenu " & quote & "New Card" & quote & "," & quote & "Edit" & quote) to HyperCardelse if (theAction is "Create New Mailbox") thenput createMailbox() into nullelse if (theAction is "Create New Message") thenput createMessage() into nullelse if (theAction is "Create New Object") thengo bg "2"send ("doMenu " & quote & "New Card" & quote & "," & quote & "Edit" & quote) to HyperCardelse if (theAction is "Dial Telephone Number") thenput dialTelephone() into nullelse if (theAction is "File into Mailbox") thenput fileMailbox() into nullelse if (theAction is "Flip Ascending/Descending") thenput flipThem(bg fld "Flip") into nullelse if (theAction is "Flip Envelope/Content") thenput flipThem(bg fld "Flip") into nullelse if (theAction is "Flip Single/Double") thenput flipThem(bg fld "Flip") into nullelse if (theAction is "Format Mail") thenput formatMail() into nullelse if (theAction is "Go Index") thensend ("closeCard") to this cdgo cd "(Index)"send ("openCard")  to this cdelse if (theAction is "Index Filter In") thenput indexFilter("in")  into nullelse if (theAction is "Index Filter Out") thenput indexFilter("out") into nullelse if (theAction is "Install Handler") thenput installHandler(bg fld "Title") into nullelse if (theAction is "Make List") thenput makeList() into nullelse if (theAction is "Make Mail") thenput makeMail() into nullelse if (theAction is "Make Profile") thenput makeProfile() into nullelse if (theAction is "Make Read Only:Directory (Family)") thenput makeDirectory("Family") into nullelse if (theAction is "Make Read Only:Directory (Member)") thenput makeDirectory("Member") into nullelse if (theAction is "Make Read Only:Envelope") thenput makeEnvelope() into nullelse if (theAction is "Message-Passing Hierarchy Hide") thenput messageHierarchy("hide") into nullelse if (theAction is "Message-Passing Hierarchy Show") thenput messageHierarchy("show") into nullelse if (theAction is "Remove Space") thenput removeSpace() into nullelse if (theAction is "Remove Space (*All*)") thenpush cdrepeat with i = (the number of this cd + 1) to the number of cdsgo cd iput removeSpace() into nullend repeatpop cdelse if (theAction is "Show Credit") thenput showCredit() into nullelse if (theAction is "Sort Cards") thensort cds of this stack ascending international by the short name of this cdput "" into bg fld "Text"else if (theAction is "Today's Date") thenput todaysDate() & " | " into bg fld "Title"put setupCard() into nullelse if (theAction is "Update Index") thenput "" into bg fld "Text"send ("openCard") to this cdelse if (theAction is "Update Stack") thenput updateStack() into nullelse if (word 1 of theAction is "Text") thendelete word 1 of theActionselect globalChunkif ((globalChunk is "") or (word 2 of globalChunk > word 4 of globalChunk)) thenanswer "Selected text is empty."elseif      (theAction is "> Add") thenput textShift("right",">",globalText)  into the selectedChunkelse if (theAction is "> Remove") thenput textShift("left",">",globalText)   into the selectedChunkelse if (theAction is "Do It") thensend (globalText) to HyperCardelse if (theAction is "Shift Left") thenput textShift("left","  ",globalText)  into the selectedChunkelse if (theAction is "Shift Right") thenput textShift("right","  ",globalText) into the selectedChunkelse if (theAction is "Sort Ascending") thenput textSort("Ascending",globalText)   into the selectedChunkset the scroll of globalFld to 0else if (theAction is "Sort Descending") thenput textSort("Descending",globalText)  into the selectedChunkset the scroll of globalFld to 0else if (theAction is "ToDo Done") thenput textToDoDone(globalFld,globalText) into nullend ifend ifend ifunlock messagesunlock screenbeep 1end mouseUp</script>
  39.     </part>
  40.     <part>
  41.         <id>2</id>
  42.         <type>field</type>
  43.         <visible> <false /> </visible>
  44.         <dontWrap> <true /> </dontWrap>
  45.         <dontSearch> <true /> </dontSearch>
  46.         <sharedText> <true /> </sharedText>
  47.         <fixedLineHeight> <false /> </fixedLineHeight>
  48.         <autoTab> <false /> </autoTab>
  49.         <lockText> <true /> </lockText>
  50.         <rect>
  51.             <left>0</left>
  52.             <top>16</top>
  53.             <right>512</right>
  54.             <bottom>32</bottom>
  55.         </rect>
  56.         <style>rectangle</style>
  57.         <autoSelect> <true /> </autoSelect>
  58.         <showLines> <false /> </showLines>
  59.         <wideMargins> <false /> </wideMargins>
  60.         <multipleLines> <false /> </multipleLines>
  61.         <reservedFamily> 0 </reservedFamily>
  62.         <titleWidth>0</titleWidth>
  63.         <icon>0</icon>
  64.         <textAlign>left</textAlign>
  65.         <font>Courier</font>
  66.         <textSize>10</textSize>
  67.         <textStyle>plain</textStyle>
  68.         <textHeight>13</textHeight>
  69.         <name>Flip</name>
  70.         <script></script>
  71.     </part>
  72.     <part>
  73.         <id>3</id>
  74.         <type>field</type>
  75.         <visible> <true /> </visible>
  76.         <dontWrap> <false /> </dontWrap>
  77.         <dontSearch> <false /> </dontSearch>
  78.         <sharedText> <false /> </sharedText>
  79.         <fixedLineHeight> <false /> </fixedLineHeight>
  80.         <autoTab> <false /> </autoTab>
  81.         <lockText> <false /> </lockText>
  82.         <rect>
  83.             <left>0</left>
  84.             <top>16</top>
  85.             <right>512</right>
  86.             <bottom>496</bottom>
  87.         </rect>
  88.         <style>scrolling</style>
  89.         <autoSelect> <false /> </autoSelect>
  90.         <showLines> <false /> </showLines>
  91.         <wideMargins> <false /> </wideMargins>
  92.         <multipleLines> <false /> </multipleLines>
  93.         <reservedFamily> 0 </reservedFamily>
  94.         <titleWidth>0</titleWidth>
  95.         <icon>0</icon>
  96.         <textAlign>left</textAlign>
  97.         <font>Courier</font>
  98.         <textSize>10</textSize>
  99.         <textStyle>plain</textStyle>
  100.         <textHeight>13</textHeight>
  101.         <name>Text</name>
  102.         <script></script>
  103.     </part>
  104.     <part>
  105.         <id>4</id>
  106.         <type>field</type>
  107.         <visible> <true /> </visible>
  108.         <dontWrap> <false /> </dontWrap>
  109.         <dontSearch> <false /> </dontSearch>
  110.         <sharedText> <false /> </sharedText>
  111.         <fixedLineHeight> <false /> </fixedLineHeight>
  112.         <autoTab> <false /> </autoTab>
  113.         <lockText> <false /> </lockText>
  114.         <rect>
  115.             <left>0</left>
  116.             <top>0</top>
  117.             <right>512</right>
  118.             <bottom>16</bottom>
  119.         </rect>
  120.         <style>rectangle</style>
  121.         <autoSelect> <false /> </autoSelect>
  122.         <showLines> <false /> </showLines>
  123.         <wideMargins> <false /> </wideMargins>
  124.         <multipleLines> <false /> </multipleLines>
  125.         <reservedFamily> 0 </reservedFamily>
  126.         <titleWidth>0</titleWidth>
  127.         <icon>0</icon>
  128.         <textAlign>left</textAlign>
  129.         <font>Courier</font>
  130.         <textSize>10</textSize>
  131.         <textStyle>bold</textStyle>
  132.         <textHeight>13</textHeight>
  133.         <name>Title</name>
  134.         <script></script>
  135.     </part>
  136.     <content>
  137.         <layer>background</layer>
  138.         <id>1</id>
  139.         <text>Create New ListFlip Ascending/DescendingIndex Filter InIndex Filter OutRemove Space (*All*)Sort CardsUpdate Index</text>
  140.     </content>
  141.     <content>
  142.         <layer>background</layer>
  143.         <id>2</id>
  144.         <text>Ascending</text>
  145.     </content>
  146.     <name>1</name>
  147.     <script></script>
  148. </background>
  149.